home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t9.d64 / sine in.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  958b  |  37 lines
  1. 2 REM** SINE IN BY JOHN LOUNSBERRY
  2. 10 REM**MUSIC PROGRAM FOR 64
  3. 12 POKE 53281,0
  4. 13 PRINT "[147]     SINE IN BY JOHN LOUNSBERRY                                    ."
  5. 14 PRINT:PRINT:PRINT:PRINT
  6. 15 PRINT"  [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  7. 16 PRINT"  [194]   SINE  ANY THING  IN   [194]"
  8. 18 PRINT"  [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
  9. 19 INPUT N$
  10. 20 BEGIN=54272:FORCLEAR=BEGTOBEGIN+24:POKECLEAR,0:NEXT
  11. 30 POKEBE+5,85:POKEBE+6,85:POKEBE+12,85:POKEBE+13,85
  12. 40 POKEBE+24,15
  13. 50 POKEBE+4,33:POKEBE+11,17
  14. 60 FORX=1TO6:READH1,L1,H2,L2:POKEBE+1,H1:POKEBE,L1:POKEBE+8,H2:POKEBE+7,L2
  15. 65 IFH1=50THENFORT=1TO200:NEXT
  16. 70 FORT=1TO100:NEXT
  17. 80 DATA25,30,18,209,33,135,25,30,42,62,31,165,50,60,37,162,42,62,31,165,50,60
  18. 85 DATA37,162
  19. 90 NEXTX
  20. 100 BEGIN=54272:FORCLEAR=BEGTOBEGIN+24:POKECLEAR,0:NEXT
  21. 110 INC=.3
  22. 120 FOR X=0 TO 6.28 STEP INC
  23. 130 FORL=54272TO54296:POKEL,12:NEXT
  24. 140 POKE 54296,15:POKE 54277,100
  25. 150 POKE 54276,33
  26. 160 Y=SIN(X)
  27. 170 Y=Y*17+17
  28. 180 POKE 53280,0 : POKE 53281,0
  29. 190 PRINT TAB(Y)  ;N$
  30. 195 LET Z =INT(12*RND(1))+1
  31. 196 POKE 53281,Z
  32. 200 NEXT X
  33. 210 FOR X= 1 TO 6.28: NEXT X
  34. 220 GOTO 110
  35. 230 REM STATMENTS 130-150 SOUND
  36. 240 REM PAGE 152 & 80 COM/MAN
  37.